library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_19.3.R")

diagnosis_19.3 <- diagnose_design(declaration_19.3, sims = sims, bootstrap_sims = bootstrap_sims) 

write_rds(diagnosis_19.3, file = "diagnosis_objects/diagnosis_19.3.rds")

